home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
tool_inc.zip
/
STOZ.INT
< prev
next >
Wrap
Text File
|
1989-06-02
|
140b
|
5 lines
type
zstring = array[0..255] of char;
procedure ztos(var z: zstring; var s: string);
procedure stoz(var s: string; var z: zstring);